G 6 


a 
Cad 
~N 


IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 


000 
33 
000 
000 
000 
000 
i 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
00 
00¢c 
00Cc 
: 


’ 
eeee 
eeee 


usu usu 
usu uu usu 
usu wu usu 
Persey wu Abs 
usu tas usu 
wus usu usu 
wus udu usu 


N 14 
T 
T 


mee 
en 
ed 


ao 
os 
boi 
a 
wu wus 
wu wu 
wu wu wu 
wus wu wu 
wu wu wus 
wu ww wu 
wus wu wus 


dau mn Munn 
aa nw MMnmnm 
Jj "wn mm ww 
4H nw own yw 
a own own nw 
ae nn “nn nn 
| Ww nn wn 
dja mn nn nw 
a od I A od I OI Od I I I I I MAMWMnM nn 
ad ad od od od 2 I OI I I I I I MWWMn mn 
usu usu 
wus ww 
usu usu usu —— “—— 
usu usu usu Ciel Cain) 
uu peeree) a Ne a ag ae ay ad dg Og ed eg 
uu pee irs | uu ed Od Od Od Od Od Od OG Od Od Bd Og Od 
usu usu usu oe oe 
wu wu uu —— —— 


acoanaanaanaa 
fayovoyovoloyvoyolor=) 


DDDDDDDD 
DDDDDDDD 
DDDDDDDD 
DDDDDDDD 
LLLLLLLLLL 
LLLLLLLLLL 


Seer eee ee 
A 


*eF I LE**1D**DELETE 


LIB_DELETE 16- Sp-1984 ¢ 94:39:31 AX-11 Blis ty 


-742 Page 1 
14-Sep-1984 LIBRAR.SRCJD 1 . ) 


ee 0001 © MODULE Lib_delete ( ! Delete modules é 
: § ie peSUAee ( (BL 15836) « ‘ 
; 000 DENT = : 
; 4 0004 ‘ 
: 5 0005 1 BEGIN . 
; 6 Bone 1 ‘ 
; 7? 0007 1! 
: 3 $46 LL eee RRR RRA ARERAEEAAEA AEE ATA A EATER AAA AA REAR ARERR ’ 
; 1 !® * ‘ 
3s. , 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * ‘ 
SKS 0011 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * . 
: \¢ pols : :* ALL RIGHTS RESERVED. * | ° 
; ; * 

eee 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copier * 

; 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tiat a — WITH THE * 

; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

<> ae 0017 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 19 0019 1 !* TRANSFERRED. * 

; 20 0020 1 !# * 

i on td 1! THE ce IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 Si Bos? ! :* CORPORATION. * 

; :* * 

:  @ 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * | 

; @& 0926 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; @ 0027 1 !« * 

; @& 0028 1 !* a 

$ $3 0029 1 Pee e ewer eee ee eee REAR EAE EAA EAA EA RARER ER RARE 

3 0 oc30 1 

Saee i 0031 1 !+¢ 

ro OOS2 1 ! : 

= 0035 1 ! FACILITY: Library command processor 

; 0034 1! 

. 0035 1 ! ABSTRACT: 

.- = 0036 1! 

o> a 0037 1! The VAX/VMS Librarian is invoked by DCL to process the LIBRARY | 

; | «638 0038 1! command. It utilizes the Librarian procedure set to perform 

; 0039 1! the actual modifications to the Library. 

: 40 0040 1! 

. 8 0041 1 ! ENVIRONMENT: 

; 642 0042 1! 

: 643 0045 1! VAX native, user mode. 

3 4h 044 1 | 

3 65 045 1 !-- 

5 6 0046 1! 

3s 67 0047 1! 

; «648 0048 1 ! AUTHOR: Benn Schreiber, CREATION DATE: 2-July-1979 

; 6 0049 1! 

; 2 0050 1 ! MODIFIED By: 

ei ae 0051 1! 

s. ae B236 1! v02-002 RPGOO35 Bob Grosso 22-Apr-1981 

; 3 Ooee : } Record module names for library update history. 

: 38 0055 1! v02-001 BLS0029 Benn Schreiber | 23-Dec-1980 

3 28 ite) ! Convert messages to message compiler 


ae :50: - -32 V4.0-7 p 3 
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} 

| ; 

Y | 

: 83 G98} eee: *SYSSLIBRARY:STARLET.L32'; | 
: 6 062 1 REQUIRE ‘ | 
: 64 0063 1 "PREFIX"; 
> 65 47 1 REQUIRE : 
: 66 48 seiatien "LIBDEF’; ; 
; gs 3 ! "LBRDEF'; 
; 69 
: 70 11 1 FORWARD ROUTINE aelide aasid condos 
; 130 1 Lib_delete_mac, 
: r i : deletegsdsym; 'Delete object gsd symbols : 
Me 1} —— : RAL) 'RMS STV from Librarian ; 
‘ iF i ¢ i Woe$ot rnssty : Arr BerockS ee prowess Se biovery oy. | : 
: 1 5 : tibsatop ae iindex for object gsd index 
: 8 i i libSsl-maceodix. ‘index for macro names | : 
: 2B 1139 1s tibsatcmtomodia iindex for help modules | 
: HT 1120 1 Libsol-txtmodix, ‘index for text modules | 
; 8 1183 Lib$gi=Llibetl; iLibrary control inde | 
Ba 1143 1 EXTERNAL ROUTINE ; 5s weak went | 
; 8 Wes tip-getazmen. cultessen virtual aquory : 
:  §8 Wee 4 tibv Log Ged ; ‘Record module names for LUH 
: Bs 1129 i L b= 09298 : ry ge delete operation : 
; “index : ADDRESSING MODE (GENERAL), ‘Set curren 
: Ho HR} tBretokup key’ bone Stine rane GENERALS, ‘LSoKp g° bey Oona, : 
. >a 1150 1 lbr$search’: bay, ienerge ingen 
: 1 Lbr$delete_key : ADDRESSING MODE (GENERAL), ‘De 
; 4 1182 : Lbr$delete-data : ADDRESSING_MODE (GENERALS; ‘Delete data 
: 94 
: 95 1154 1 EXTERNAL LITERAL Sedat anes : 
; 39 113 i tibscLookosert Error parte Bh nce: ; 
: ~ , ‘Error delete : 
; 39 1138 : tibscdetdsterr, ‘Error Gelotetng data : 
; 10 1123 : Lib$-deleted; ‘Deleted o ; 
; 102 1161 1 GLOBAL BIND ROUTINE ES Es ig EAPO | 
: = lib_delete_mac, ‘Delete he | 
; 104 1183 i tibedeleterexe = libedetetecnec: 'Delete TEXT module | 
: 105 1164 1 | 
4 1 
: 199 1166 : gsdlist : VECTOR (C2, LONG); 'Listhead for deleted symbols 
140 1189 i BUTT ASOUE ‘Insert inte queue : 
: 111 1170 1 REMQUE; ‘Remove from queue : 


7 
14-Sep-1984 LIBRAR.SRCIJDELETE.B832; 


LAB DELETE 1-Sep-19 4 04:30:31 AX=-11 Bliss-32 V4.0- “¢ Page ; 


t30) ROUTINE Lib_delete_obj (modulename) = 


gsdesc : BBLOCK 53-0 (n). 
modulerfa : BBLOCK ([rfa$c_length]; 


perform (lbr$set_index (Lib$gl_lLibctl, Lib$Sgl_objmodix), 
Tib$_indexerr, 1, Libdesc); 


VIEW OOONOU ES UT 


COCO COOOM OS INN INN 


rms_perform (lor$lookup_key (Lib$Sgl_Libctl, .modulename, modulerfa), 
Lib$S_lookuperr, .(br$gl_rmsstv, 2, .modulename, Libdesc); 


perform (iorS$set_index (Lib$Sgl_libctl, Lib$gl_objgsdix), 
TibS_indexerr, 1, libdesc); 


MEW O OONOUNE WN" OOONOUNFE WW 


gsdlist £0} = gsdlist (0); !Init the queue Listhead 
gsdlist (1) = gsdlist (OJ; 
rms_perform (lLOr$search (LibSgt_libetl, Libsgl_objgsdix. modulerfa, deletegsdsym), !find gsds 


l 
LibS_indexerr, .lbr$gl_rmsstv, 1, libddesc); 


' | 
' Remove the symbols from the List that was accumulated and delete | 
them now. 


RDN a at a a ao a ss ss ts ss = os — = as = 2 ss ss 4 


SSSSSESPSSSSSSsss 


WR O OOONAUES WN O OONAUE WN “OOOO NEW 0M 


WHILE NOT REMQUE (.gsdlist, gsd/nb) 
DO BEGIN 


gsdesc pgscéu_ length) = .gsd.rh p Lnese neni ngd; 'Create a descriptor 
gsdesc ([dsc$a_pointer) = #0 ) w 
perform (lbr$delete_key (Lio: gt_libctl? gsdesc), 'Delete the global symbol 

Lib$S_deTkeyerr, 2, <modulename, libdes 
L1b. tree_nen (LnBSc_fixedsize 


SS 


oooo 


c); 
+.gsdinb Cinb$b_naming). -gsdinb);!Deallocate the block 
perform (lbr$set_index (Lib$gl_Libctl, 
Tib$S_indexerr, 1, libdesc); 
t_li 


rms_perform (lor$delete_key (Libsgl_libctl, .modulename) ; 
Lib$_deTkeyerr, .(bF$gl_rmsstv, 2, .modulename, Libdesc); | 


rms_perform (\br$delete_data CU fepet Libctl, modulerfa), 
Lib$_deTdaterr, .lOrSgi_rmsstv, 1, Libdesc); 


; LibSgl_objmodix), 


b_log_upd (lhe$c_deleted, .modulename ); . 
b_log_op (Lib$_deleted, .modulename, .lib$gl_libfdb); 
TORN true 


ee ee ee ee ee ee LL 
AS pre Ae th Met thd ae ah Ay A ee Ty at ten y ste tert ad SN as adh yes Ny steep 


MEWN =O VOONOUEWN OC OONOUS WN" OV0@~ 
ee ee ee ee ee ee a a a a a a a 
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1G 

, 

! Delete ‘4 nodules 

MAP 

_modulename : REF BBLOCK Cdsc$c_s_bin); 
vocat toes = LibSgl_libfdb Cfdb$i_namdesc] : BBLOCK; 
gsdinb : REF een 
ds¢$c 

: 
3 
1 
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NORIO 3 OO 


li 
li 
RE 
EN 


“IDENT \VOE"000\" 


. B =pFLeTe 


53 


00006 


000000006 


5B 000000006 
5A 000000006 
23 0000' 
58 000000006 
57 000000006 
56 000000006 
55 00006 
54 000000006 

SE 

CF 
00006 

68 

08 

64 
04 

00 

14 
04 
000000006 

64 
00006 


MODS FUNG MNOVIP VIOMIOVNIVIO VIM | "OO WOOOrOo 


MAA MUM WO NOMOM EA "WOOMUINOOO*"Oo"on" 


00000 GSDLIST:. 


OFFC 00000 
0 00002 
E asd 

9E 00010 
9E 00015 
9E poeas 
DO Bons 
9E B80 A 
5 002F 
C2 00036 
C1 00039 
9F OO0SF 
DD 00043 
Fe OPO 
E8 00048 
DD 00048 
DD 00040 
DD O004F 
DD 00051 
4, 0053 13 
Dd 90038 
DD 00058 
FB 0005D 
E8 00064 
DD 00067 
DD 00069 
DD 00068 
dD 7) 
DD 000 
DD ? 
FB 7? 
9F 0007B 2%: 
DD 0007F 


=19B4 12:39:59 


AX-11 Bliss-32 V4.0-742 Page 
LIBRAR. SRCIDELETE B32: 1 ° 

SOWNS ,NOEXE ,2 

a 

LBRSGL_RMSSTV, LIBSGL_LIBFDB 

LIBS$GL~OBJMODIX 

LIBS$GL~OBJGSDIX 

LIBS$GL-MACMODIX 

LIB$GL~ HL PMOD1X 

LIBSGL-TXTMODIX 

LIBSGL~LIBCTL, fis GET_ZMEM 

LIB_FREE_MEM, LIB COG OPD 

LIB~LOG OP, tangs a PRDEX 

LBRSLOORUP_ KEY, PBRSSEAR ARCH 

LBRSDELETE-KEY, _EBRSDELETE DATA 

LIB$_INDEXERR LOOKUPERR 

LIBS_ DELREYERR, ate DELDATERR 

LIB$"DELETED 


SCODES ,NOWRT,2 
“CML Pt hie OBJ, Save R2,R3,R4,R5,R6,R7,R8,- 


tas. DELKEYERR, R11 
LBRSDELETE , R10 
GSDLIS 


#16. LIBSGL_LIBFDB, R3 
fae OBJMODIX 


e LBRSSET_INDEX 
TATUS, 1$ ~ 

STAT 

R3 

#1 

R6 

+ LIBSSIGNAL 

. DULENAME 

#3, LBRSLOOKUP_KEY 
ATUS, 

LBRSGL_RMSSTV 

STATUS 

MODUL ENAME 

° ar ye tt tie 


$SIGNAL 
t]ésel. OBJGSDIX 


1171 


1192 


Lit 
vou 


15 
LIB_DELETE 1g-se -1984 01:50:31 AX=11 Bliss-32 V4.0-74 
e=08D 127808- 138 4:39 :3) LIBRAR. SRCIDELETE.B32: 
8 FB 00081 CALLS #2, LBRSSET_INDEX 
88 § EB l, BLBS = STATUS, § : 
° DD 7 PUSHL STATUS 
DD 9 PUSHL R3 
01 DD B PUSHL #1 
6 DD 0008D PUSHL  R6 
64 04 FB O008F CALLS #4, LIBSSIGNAL 
69 69 9E 092 3$: OVAB GSOLIST, GSDLIST 
04 a9 69 9E 0009 OVAB GSDLIST, GSDLIST+4 
0000v CF 9F 00099 PUSHAB DELETEGSDSYM 
04 AE 9F 0009D PUSHAB MODULERFA 
00006 cE OF 0040 PUSHAB L [BSGL_OBJGSDIX 
5 DD OO0A4 PUSHL R 
000000006 00 04 FB 00A6 CALLS #4, LBRSSEARCH 
0D 0 €£ 9004p BLBS = STATUS, 
67 DD 0 0B0 PUSHL LBRS$GL.RMSSTV 
9 DD 00082 PUSHL STATUS 
53 DD 000B4 PUSHL 
01 oD 00086 PUSHL #1 
56 DD 000B8 PUSHL 6 
64 05 FB OOOBA CALLS #5, LIBSSIGNAL 
52 00 89 OF O00BD 4$: REMQUE @GSDLIST, GSDLNB 
3 1D 900C BVS 6$ 
08 AE A2 9B 000C3 MOVZBW 9(GSDLNB), GSDESC 
OC AE OA A2 9E 000C8 MOVAB 10(R2), GSDESC+4 
AE 9F 000CD PUSHAS GSDESC 
55 DD 00000 PUSHL 5 
6A 02 FB 000D2 CALLS #2, LBRSDELETE_KEY 
OE 50 E8 00005 BLBS STATUS, 5$ 
50 DD 00008 PUSHL STATUS 
53 DD OOODA PUSHL R 
04 AC DD 9000¢ PUSHL §MODULENAME 
02 OD O00DF PUSHL #2 
5B DD 000E1 PUSHL R11 
64 05 FB OO0E; CALLS #5, LIBSSIGNAL 
52 DD OO0ES SS: PUSHL 6S 
7E 09 A2 9A OOEB MOVZBL 9 (GSDLNB), -(SP) 
6E OA CO OO00EC ADDL2. #10, (SP) 
0000G CF O¢ FB OOOEF CALLS #2, LIB_FREE_MEM 
C? 11 OOOF4 BRB 4 
00006 CF 9F O00F6 6$: PUSHAB LIBS$GL_OBJMODIX 
55 DD OOOFA PUSHL R 
6R FB OOFC CALLS @ LBRSSET_INDEX 
0B é oor BLBS STATUS, 7$ 
DD 90102 PUSHL STATU 
5 DD 001 PUSHL R 
01 DD 001 PUSHL #1 
6 DD 001 PUSHL 6 
64 04 FB OO10A CALLS #4, LIBSSIGNAL 
04 AC DD 00100 7$: PUSH SULENAME 
6A 3 PP i CALLS ; LBRSDELETE_KEY 
10 56 EB ou BLBS TATUS, aS ' 
DD 0011 PUSHL LBRSGL_RMSSTV 
9 DD O11A PUSHL STATUS 
DD 0011C PUSHL 
04 AC DD OO11E PUSHL MODULENAME 


H 15 
16-Sep-1984 01:50:31 VAX=11 Bliss-32 v4.0-7% p a 
beets VaR Mm Pte tg Pei rae te “or «0h 


ot-aah* 


2 dO 1 PU 7] : 
B DD 001 PUSHL R11 F | 
64 6 FB 001 CALLS #6, L 1B$S1GNAL : | 
4020 8F BB 00128 8$: PUSHR #°M<R5,SP> + 1218 
000000006 00 FB 1 g CALLS #2, LBRSDELETE_DATA : | 
11 £8 001 BLBS =‘ STATUS, ; 
DD 001 PUSHL LBRSGL_RMSSTV : 
9 DD 001 PUSHL STATUS : 
DD QO13A PUSHL 3 
4 DD 0013¢c PUSHL #1 : 
000000006 8F DD 0013E PUSHL #L1BS DELDATERR : | 
64 0S FB te CALLS #5, LYBS$SIGNAL : 
04 AC DD 00147 9S: PUSHL  MODULENAME : 1220 
o1 DD OO14A PUSHL #1 : 
00006 CF 2 FB 0014C CALLS #2, LIB_LOG_UPD : 
00006 CF 0D 00151 PUSHL LIB$GL_CIBFOB + 1221 
AC DD 00155 PUSHL  MODULERAME : 
000000006 i DD 0138 PUSHL Hy IBS DELETED : 
00006 CF 3 FB 136 CALLS #3, LIB_LOG_OP : 
01 00 0016 MOVL #1. R : 1222 
04 00166 RET > 122 


; Routine Size: 359 bytes, Routine Base: S$CODE$ + 0000 


| 
15 
LIB_DELETE 1-5 -1984 01:50:31 AX-11 Bliss-32 V4.0-74 Page 8) 
yOe=000 12286871382 93:39:83 LIBRAR.SRC DELEvE 83274 . (4) | 
; 167 1224 1 GLOBAL ROUTINE Lib_delete_mac (modulename) = ; 
: 168 1225 BEGIN ; 
; 169 1 § : : 
; 170 1 i Delete macros : 
; i 1228 : | : 
; \7¢ 1229 P : 
; \7 | 9 modulename : REF BBLOCK Cdsc$c_s_bin]; : 
: 175 1¢3¢ Libdesc = LibSgl_libfdb Cfdb$l_namdesc] : BBLOCK; | : 
; 176 1 LOCAL : 
s 77 1234 modulerfa : BBLOCK (Crfa$c_length); : 
; 178 P1235 2 perform (Lbr$set_index (LibSgl_Libctl, LibSgl_macmodix), : 
; 1” : § TibS_indexerr,~1, libdesc); | ; 
: «(181 P 1238 rms_perform (lbr$lookup_key (Lib$gl_lLibctl, .modulename, modulerfa), : 
3 ise : i Lib$S_lookuperr, .lbrS$gl_rmsstv, 2, .modulename, Libdesc); . 
> 184 P1241 2 rms_perform (lbr$delete_key (Lib$gl_libctl, .modulename) 
3 133 ists Lib$_deTkeyerr, .(br$gl_rmsstv, 2, .modulename, Libdesc); 
gs 187 P 1244 rms_perform (lbr$delete_data a ere Libctl, modulerfa), 
3 3 : re Lib$_deTdaterr, .lbrSgl_rmsstv, 1, Libdesc); 
; 190 12467 Lib_log_upd (LheSc_deleted, .modulename ); 
: «191 1248 Lib_ log op (Lib$_deleted, .modulename, .lib$gl_libfdb); 
3 ios 1249 RETORN true 
; («19 1250 1 END; 
007C 00000 «ENTRY LIB_DELETE_MAC, Save R2,R3,R4,R5,R6 : 1224 
56 4443 CF 9E 00002 MOVAB LIBSGL_LIBCTL, R6 : 
55 000000006 00 9€ 00007 MOVAB LBRSGL_RMSSTV, RS F 
54 000000006 00 i 00006 MOV LIBSSIGNAL, R4 ; 
3f 08 C Bnet UBL #8. S ; 
53 00006 C 10 C1 00018 ADDL #16, LIBSGL_LIBFDB, R3 : 1232 
00006 CF SF OOO1E PUSHAB LIBSGL_MACMODIX : 1236 
56 DD 000 PUSHL 8 3 
000000006 00 9¢ 4} 00024 CALLS #2, LBRSSET_INDEX ‘ 
OF E8 00028 LBS STATUS, 1$ : 
29 DD 000 PUSHL § : 
0D §° PUSHL : 
1 dD 000 PUSHL #1 : 
00000000G 8F ODD 88 PUSHL *#LIBS$_ INDEXERR : 
64 04 FB OOO3SA CALLS #4, L BSSIGNAL ‘ 
5E DD 0003D 1$: PUSHL P : 1239 
52 04 AC 00 0005F MOVL Sete R2 : 
26 DD 0004 PUSHL R : 
DD : 4 PUSHL Rg 3 
000000006 00 Fe 4 CALLS 43, LBRS) OOKUP_KEY 3 
11 E of BLBS TATUS, 2$ : 
6 DD PUSHL LBRSGL_RMSSTV ; 
0 OD PUSHL TU : 
BS BB PUSHR #*M<R2,R3> ; 
2 0D 00 PUSHL #2 : 


LIB_DELETE 1 1:50:31 AX-11 Bliss-32 V4.0-742 Page 9 
i be=05p 1 94:39:35 LIBRAR. SRC IDELETE .B32:1 - «al 
000000006 8F oD 59 PUSHL #LIB$_LOOKUPERR ; 
4 FB f CALLS #6, LIBSSIGNAL : | 
DD 62 2$ PUSHL R + 1242 
DD 0006 PUSHL R : 
000000006 00 Q FB CALLS @# arbQRSgguere. KEY : 
11 E BLBS = STA ; 
DD PUSHL LBRSGL_RMSSTV : 
0 DD 0007 PUSHL STATUS™ : 
§ BB 00074 PUSHR #*M<R2,R3> : 
DD 0007 PUSHL : 
000000006 8F 0D 0007 PUSHL aL 1Bs DELKEVERR : 
6 FB 3 CALLS #6, LIBSSIGNAL 3 
4040 8F BB 3$: PUSHR  #*M<R6,SP> + 1245 
000000006 Fe 5 CALLS #2, LBRSDELETE_DATA : 
11 E C BLBS STATUS, 4 ; 
$ DD F PUSHL LBRSGL _RMSSTV : 
9 DD 1 PUSHL STATUS : 
53 DD PUSHL : 
o1 DD 0009 PUSHL #1 : 
000000006 8F DD 0009 PUSHL 4 1B$_DELDATERR ; 
4 93 FB 0009D CALLS , LIBSSIGNAL : 
2 DD OOOAD 4$: PUSHL Re" + 1247 
01 DD 000A2 PUSHL : 
00096 02 FB O00A4 CALLS 7, LIB_LOG_UPD : 
0000G CF DD 000A9 PUSHL LIJB$GL_C18F5B 3 1248 
52 DD OOOAD PUSHL ; 
000000006 8F DD OOOAF PUSHL } 1B$ DELETED ; 
0000G CF 03 FB 00085 CALLS LTB.t 3 
50 01 DO OOOBA MOVL nk : 1249 
04 00080 RET : 1250 


; Routine Size: 190 bytes, Routine Base: $CODE$ + 0167 


oe ai 


95 


1 

1 

1 

1 

1 
08 
09 

2 

r4 

rd 


SSS ese 
MEW —OOC 


Routine Size: 


215 
216 


PRODIPOPOPIPIPYIPIPIPIPIPUPIPIPIPIPOPINIPD 


i ek a a ad kd dd 
NAO 


4 


12 
12 


K 15 
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—> 


ine deletegsdsym (keydesc) = 

elete one gsd symbol 

keydesc : REF BBLOCK ([rfa$c_length]; 

Libdesc = Lib$Sgl_libfdb Cfdb$l_namdesc] : BBLOCK; 


LOCAL 
inb : REF BBLOCK; 


PAE MNAIVIVIVIVTUT 


SOS USA Pow Ooo Auer 


HSMOVE (.ke one Cdsc$w_length], .keydesc Cdsc$a_pointerJ, 'Copy in the name 
b Clnb$t_nameJJ; 


in 
Lnb Clnb$b_naming]~= -keygesc Cdsc$w_length); 
INSQUE (.lnb, .gsdlist (C1J); 


RETURN true 
END; 


‘Insert into queue 


— 


'Of deletegsdsym 


OOFC 00000 DELETEGSDSYM: 
. WORD gyve Fe A5 MA A AS Rr 


SE 04 ¢2 00002 SUBL2 
5E DD 00005 PUSHL 
57 04 AC B0 00007 MOVL KEYDESC, R7 
7E 67 3¢C 0000B MOVZWL (R7), -(SP) 
6E OA CO 0000E ADDL2. #10, (SP) 
00006 CF 02 FB 00011 CALLS #2, LIB_GET_ZMEM 
15 50 £9 00016 BLBC TATUS, 1$ 
56 6E DO 00019 OV LNB, R 
OA Ab 04 87 67 28 0001C MOVC3 (R7S, a4(R7), 10(R6) 
09 Ab 67 90 00022 MOVB  (R7). 9(R6) 
0000" oF 66 OE 00026 INSQUE (R6), @GSDLIST+4 
50 01 B60 ooze MOVL #1, RO 
2E 18 RET 


7 bytes, Routine Base: S$CODE$ + 0225 
71 +1 END 
72 O ELUDOM 

-EXTRN LIBS 
ELETE_TXT== 
ELET 

PSECT SUMMARY 

Bytes Attributes 


erform (Lib_get_zmem a ee nage me eg pe Cdsc$w_lengthi, inb)); 'ALloc a name block 


1251 
1263 


LAB DELETE 18-5ep -1984 O}: 39:3) AX=11 Bliss-32 V4.0-742 


14-Sep P1984 LIBRAR.SRCIJDELETE.832;1 
SOWNS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 596 NOVEC, ;NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eeocecee Symbols -------- Pages Processing 
2 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 23 0 581 00:01.0 
: COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DELETE/OBJ=OBJ$:DELETE MSRC$:DELETE/UPDATE=(ENH$: DELETE) 
217 1273 0 
Size: 596 code + 8 data bytes 
Run Time: 00:20.2 
Elapsed Time: 00:40.5 


Lines/CPU Min: 3777 
Lexemes/CPU-Min: 44403 
poneee Used: 199 pages 
Compilation Complete 


ee 


"AH: BT13A-SE 
VAX/VMS V4.0 


0200 


TIA r 


ON 


R 


